<!--#Include file="../myConst.asp"-->

<%
On Error Resume Next

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\lyDB\" &tslt_Database)
Conn.Open

if Conn.errors.count>0 then
      Response.Write "<script language='javascript'>alert ('\nݿʱˣ" &Conn.errors.count&""&_
      "  󣬸ôش\nֿܵĴ\n ϵͳʱҪݿ⡣\n ݿӳִݿǷڡ\n Ա¼ִ     ԭݿϴļ     ע⣺ֻܱϴνԭǰˡ');</script>"
      Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\lyDB\" &tslt_Database)
	  Conn.Open
end if

Sub conn_Nothing()
    conn.close
    set conn=Nothing
End Sub 
%>
